home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 2004 Junue - Disc 1 / MacFormat 143 CD1.iso / Serious Software / RealCADD3.05.sit / RealCADD3.05 / scripts / rectbycenter < prev    next >
Text File  |  2003-04-07  |  224b  |  34 lines
  1. RCAD script
  2. 1.00
  3. rectbycenter
  4. rectbycenterup
  5. rectbycenterdown
  6. 0
  7. 0
  8. 1
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. Dim s_dx, s_dy as double
  30.  
  31. s_dx = lastx - firstx
  32. s_dy = lasty - firsty
  33. Add_Rect(firstx - s_dx, firsty - s_dy, lastx, lasty, 1,7,0,false)
  34.